home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO064.dsk / ADD.SORT.bas < prev    next >
BASIC Source File  |  2012-02-16  |  930b  |  25 lines

  1. 100  HOME : VTAB 10
  2. 110  PRINT : PRINT "   * * * *    SORTING DATA    * * * *"
  3. 120  FOR K = 1 TO NP
  4. 130 D$(K) = SA$(K) +SB$(K)
  5. 140  NEXT K
  6. 150 N2 = 1
  7. 160  FOR J = 1 TO NP:AS$ = D$(J): FOR K = N2 TO NP: IF AS$ > = D$(K)  THEN AS$ = D$(K):Z = K
  8. 200  NEXT K
  9. 210  IF Z = J  THEN  GOTO 300
  10. 220 A1$ = A$(J):A$(J) = A$(Z):A$(Z) = A1$
  11. 230 S1$ = SA$(J):SA$(J) = SA$(Z):SA$(Z) = S1$
  12. 240 B1$ = B$(J):B$(J) = B$(Z):B$(Z) = B1$
  13. 250 C1$ = C$(J):C$(J) = C$(Z):C$(Z) = C1$
  14. 260 CC$ = CC$(J):CC$(J) = CC$(Z):CC$(Z) = CC$
  15. 270 E1$ = E$(J):E$(J) = E$(Z):E$(Z) = E1$
  16. 280 SB$ = SB$(J):SB$(J) = SB$(Z):SB$(Z) = SB$
  17. 290 D1$ = D$(J):D$(J) = D$(Z):D$(Z) = D1$
  18. 300 N2 = N2 +1: NEXT J:NP% = 1
  19. 350  FOR J = 1 TO NP:D$(J) = "": NEXT J
  20. 355  HOME : VTAB 10: HTAB 15: PRINT "HOUSECLEANING"
  21. 360  PRINT  CHR$(4);"FRE"
  22. 32000  HOME 
  23. 32010  PRINT  CHR$(4);"CHAIN ADD.ENTER,@32000"
  24. 40000  PRINT  CHR$(4);"SAVE /RAM/ADD.SORT"
  25. 40100  PRINT  CHR$(4);"CHAIN ADD.INIT,@40000"